
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n, m, x, i As Integer, s As String                           
s = TextBox1.Text & "" & TextBox2.Text & "֮ǣ" sҪ
m = Val(TextBox1.Text)                        val()ıתΪֵ
If  m Mod 2 = 0  Then m = m + 1        ӦôӴڽСĵһʼж
For x = m To Val(TextBox2.Text) Step 2
Mark = 0                       	 MarkΪ־ 0ʱxΪ 1ʱxΪ
For i = 2 To Int(Sqr(x))    			Int()ǽƽת
   If  x Mod i = 0  Then     		xiʱxΪ 
Mark = 1                      
     Exit For
   End If
Next
If  Mark = 0 Then  s = s & Str(x) & " "
Next
TextBox3.Text = s
End Sub
